﻿Imports Capa_de_Acceso_a_Datos

Public Class frmVisualizarPresentacion

    Public PresentacionId As Integer

    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        Me.Dispose()
    End Sub

    Private Sub frmVisualizarPresentacion_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Me.Dispose()
    End Sub

    Private Sub frmVisualizarPresentacion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cargarEmpleados()
        btnSalir.Focus()
    End Sub

    Private Sub cargarEmpleados()
        Dim tablaPresentaciones As DataTable = PresentacionDAO.obtenerPresentaciones(PresentacionId)
        Dim EmpleadoRecepcionId As Integer = tablaPresentaciones.Rows(0)("EmpleadoRecepcionId")
        'Dim EmpleadoAuditorId As Integer = tablaPresentaciones.Rows(0)("EmpleadoAuditorId")
        txtFecha.Text = tablaPresentaciones.Rows(0)("PresentacionFecha")

        Dim tablaEmpleados As DataTable = EmpleadoDAO.obtenerEmpleados(EmpleadoRecepcionId)        
        txtRecepcionista.Text = tablaEmpleados.Rows(0)("PersonaApellido") & ", " & tablaEmpleados.Rows(0)("PersonaNombre")

        'tablaEmpleados = EmpleadoDAO.obtenerEmpleados(EmpleadoAuditorId)
        'txtAuditor.Text = tablaEmpleados.Rows(0)("PersonaApellido") & ", " & tablaEmpleados.Rows(0)("PersonaNombre")
    End Sub
End Class